Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/debug/memmon.dir/00076_Profile scripts.ls

Text File | 1995-02-15 | 427 b | 15 lines

on ProfileCasts
  set output to EMPTY
  repeat with temp = 1 to the number of castMembers
    if the castType of cast temp <> #empty then
      set castSize to the size of cast temp / 1024
      if castSize < 1 then
        put "Cast" && temp && "is <1k" & RETURN after output
        next repeat
      end if
      put "Cast" && temp && "is" && castSize & "k" & RETURN after output
    end if
  end repeat
  return output
end